home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EuroCD 3
/
EuroCD 3.iso
/
Rexx
/
SaveChangedDocs.bed
< prev
next >
Wrap
Text File
|
1998-06-24
|
435b
|
26 lines
/*
** $VER: SaveChangedDocs.bed 1.0 (03.01.96)
**
** Save all currently loaded documents which have been changed, but not saved,
** and optionally close all opened documents.
**
** Modified by Marco Negri
*/
OPTIONS RESULTS
PARSE ARG quit
quit = UPPER(quit)
ADDRESS BED
GetDocuments
docs = RESULT
DO WHILE docs ~= ''
PARSE VAR docs '"'.'" ' port docs
ADDRESS VALUE port
SaveFile MODIFIED
IF quit = "QUIT" THEN CloseDoc
END